home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / PICCLIP / REDTOP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  9.1 KB  |  300 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.0#0"; "PICCLP32.OCX"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Red Top"
  6.    ClientHeight    =   2328
  7.    ClientLeft      =   4200
  8.    ClientTop       =   2640
  9.    ClientWidth     =   3588
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   1
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Redtop.frx":0000
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   194
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   299
  26.    Begin PicClip.PictureClip PictureClip2 
  27.       Left            =   120
  28.       Top             =   1920
  29.       _ExtentX        =   10393
  30.       _ExtentY        =   4805
  31.       Rows            =   3
  32.       Cols            =   6
  33.       Picture         =   "Redtop.frx":030A
  34.    End
  35.    Begin VB.CommandButton onoff 
  36.       Caption         =   "spin"
  37.       Height          =   390
  38.       Left            =   1845
  39.       TabIndex        =   1
  40.       Top             =   1095
  41.       Width           =   1125
  42.    End
  43.    Begin VB.CommandButton Command1 
  44.       Caption         =   "info"
  45.       Height          =   345
  46.       Left            =   1845
  47.       TabIndex        =   2
  48.       Top             =   705
  49.       Width           =   1125
  50.    End
  51.    Begin VB.PictureBox Picture6 
  52.       BackColor       =   &H00408080&
  53.       ForeColor       =   &H00000000&
  54.       Height          =   1245
  55.       Left            =   225
  56.       ScaleHeight     =   100
  57.       ScaleMode       =   3  'Pixel
  58.       ScaleWidth      =   109
  59.       TabIndex        =   3
  60.       TabStop         =   0   'False
  61.       Top             =   240
  62.       Width           =   1350
  63.       Begin VB.PictureBox Picture1 
  64.          Appearance      =   0  'Flat
  65.          AutoSize        =   -1  'True
  66.          BackColor       =   &H80000005&
  67.          ForeColor       =   &H80000008&
  68.          Height          =   720
  69.          Left            =   60
  70.          ScaleHeight     =   58
  71.          ScaleMode       =   3  'Pixel
  72.          ScaleWidth      =   67
  73.          TabIndex        =   0
  74.          TabStop         =   0   'False
  75.          Top             =   60
  76.          Width           =   825
  77.       End
  78.    End
  79.    Begin VB.Timer Timer1 
  80.       Interval        =   1
  81.       Left            =   2235
  82.       Top             =   120
  83.    End
  84.    Begin VB.PictureBox PictureClip1 
  85.       Height          =   480
  86.       Left            =   -3135
  87.       ScaleHeight     =   432
  88.       ScaleWidth      =   1152
  89.       TabIndex        =   4
  90.       Top             =   1560
  91.       Width           =   1200
  92.    End
  93.    Begin VB.Image Image1 
  94.       Height          =   384
  95.       Index           =   17
  96.       Left            =   3720
  97.       Picture         =   "Redtop.frx":91CC
  98.       Top             =   4428
  99.       Visible         =   0   'False
  100.       Width           =   384
  101.    End
  102.    Begin VB.Image Image1 
  103.       Height          =   384
  104.       Index           =   16
  105.       Left            =   3720
  106.       Picture         =   "Redtop.frx":94D6
  107.       Top             =   3888
  108.       Visible         =   0   'False
  109.       Width           =   384
  110.    End
  111.    Begin VB.Image Image1 
  112.       Height          =   384
  113.       Index           =   15
  114.       Left            =   3660
  115.       Picture         =   "Redtop.frx":97E0
  116.       Top             =   3348
  117.       Visible         =   0   'False
  118.       Width           =   384
  119.    End
  120.    Begin VB.Image Image1 
  121.       Height          =   384
  122.       Index           =   14
  123.       Left            =   3660
  124.       Picture         =   "Redtop.frx":9AEA
  125.       Top             =   2808
  126.       Visible         =   0   'False
  127.       Width           =   384
  128.    End
  129.    Begin VB.Image Image1 
  130.       Height          =   384
  131.       Index           =   13
  132.       Left            =   3660
  133.       Picture         =   "Redtop.frx":9DF4
  134.       Top             =   2268
  135.       Visible         =   0   'False
  136.       Width           =   384
  137.    End
  138.    Begin VB.Image Image1 
  139.       Height          =   384
  140.       Index           =   12
  141.       Left            =   3660
  142.       Picture         =   "Redtop.frx":A0FE
  143.       Top             =   1728
  144.       Visible         =   0   'False
  145.       Width           =   384
  146.    End
  147.    Begin VB.Image Image1 
  148.       Height          =   384
  149.       Index           =   11
  150.       Left            =   3660
  151.       Picture         =   "Redtop.frx":A408
  152.       Top             =   1188
  153.       Visible         =   0   'False
  154.       Width           =   384
  155.    End
  156.    Begin VB.Image Image1 
  157.       Height          =   384
  158.       Index           =   10
  159.       Left            =   3660
  160.       Picture         =   "Redtop.frx":A712
  161.       Top             =   648
  162.       Visible         =   0   'False
  163.       Width           =   384
  164.    End
  165.    Begin VB.Image Image1 
  166.       Height          =   384
  167.       Index           =   9
  168.       Left            =   3660
  169.       Picture         =   "Redtop.frx":AA1C
  170.       Top             =   108
  171.       Visible         =   0   'False
  172.       Width           =   384
  173.    End
  174.    Begin VB.Image Image1 
  175.       Height          =   384
  176.       Index           =   8
  177.       Left            =   3120
  178.       Picture         =   "Redtop.frx":AD26
  179.       Top             =   4428
  180.       Visible         =   0   'False
  181.       Width           =   384
  182.    End
  183.    Begin VB.Image Image1 
  184.       Height          =   384
  185.       Index           =   7
  186.       Left            =   3120
  187.       Picture         =   "Redtop.frx":B030
  188.       Top             =   3888
  189.       Visible         =   0   'False
  190.       Width           =   384
  191.    End
  192.    Begin VB.Image Image1 
  193.       Height          =   384
  194.       Index           =   6
  195.       Left            =   3120
  196.       Picture         =   "Redtop.frx":B33A
  197.       Top             =   3348
  198.       Visible         =   0   'False
  199.       Width           =   384
  200.    End
  201.    Begin VB.Image Image1 
  202.       Height          =   384
  203.       Index           =   5
  204.       Left            =   3120
  205.       Picture         =   "Redtop.frx":B644
  206.       Top             =   2808
  207.       Visible         =   0   'False
  208.       Width           =   384
  209.    End
  210.    Begin VB.Image Image1 
  211.       Height          =   384
  212.       Index           =   4
  213.       Left            =   3120
  214.       Picture         =   "Redtop.frx":B94E
  215.       Top             =   2268
  216.       Visible         =   0   'False
  217.       Width           =   384
  218.    End
  219.    Begin VB.Image Image1 
  220.       Height          =   384
  221.       Index           =   3
  222.       Left            =   3120
  223.       Picture         =   "Redtop.frx":BC58
  224.       Top             =   1728
  225.       Visible         =   0   'False
  226.       Width           =   384
  227.    End
  228.    Begin VB.Image Image1 
  229.       Height          =   384
  230.       Index           =   2
  231.       Left            =   3120
  232.       Picture         =   "Redtop.frx":BF62
  233.       Top             =   1188
  234.       Visible         =   0   'False
  235.       Width           =   384
  236.    End
  237.    Begin VB.Image Image1 
  238.       Height          =   384
  239.       Index           =   1
  240.       Left            =   3120
  241.       Picture         =   "Redtop.frx":C26C
  242.       Top             =   648
  243.       Visible         =   0   'False
  244.       Width           =   384
  245.    End
  246.    Begin VB.Image Image1 
  247.       Height          =   384
  248.       Index           =   0
  249.       Left            =   3120
  250.       Picture         =   "Redtop.frx":C576
  251.       Top             =   108
  252.       Visible         =   0   'False
  253.       Width           =   384
  254.    End
  255. Attribute VB_Name = "Form1"
  256. Attribute VB_GlobalNameSpace = False
  257. Attribute VB_Creatable = False
  258. Attribute VB_TemplateDerived = False
  259. Attribute VB_PredeclaredId = True
  260. Attribute VB_Exposed = False
  261. Dim y As Integer
  262. Dim x As Integer
  263. Dim delay As Integer
  264. Dim toggle As Integer
  265. Dim flap As Integer
  266. Private Sub Command1_Click()
  267.     infoform.Show   ' Load and display infoform.
  268. End Sub
  269. Private Sub Form_Load()
  270.     ' Use the third frame of the sequence for the startup frame.
  271.     Picture1.Picture = PictureClip2.GraphicCell(2)
  272.     y = 2
  273.     ' Center the smaller picture in the larger picture.
  274.     Picture1.Left = (Picture6.ScaleWidth - Picture1.Width) / 2
  275.     Picture1.Top = (Picture6.ScaleHeight - Picture1.Height) / 2
  276. End Sub
  277. Private Sub onoff_Click()
  278.     If toggle = 0 Then
  279.         onoff.Caption = "stop"
  280.         toggle = 1
  281.     Else
  282.         onoff.Caption = "spin"
  283.         toggle = 0
  284.     End If
  285. End Sub
  286. Private Sub runtop()
  287.     ' Advance animation one frame.
  288.     y = y + 1: If y = 18 Then y = 0
  289.     Picture1.Picture = PictureClip2.GraphicCell(y)
  290.     ' Icon animation:  This will only be evident when the
  291.     ' form is minimized.  Icon (.ICO) files, rather than .BMP files,
  292.     ' have been loaded into the Picture3 array.  This allows
  293.     ' the mask feature of the icon file to be utilized, letting
  294.     ' the background behind the icon show through.
  295.     Form1.Icon = Image1(y).Picture
  296. End Sub
  297. Private Sub Timer1_Timer()
  298.     If toggle = 1 Then runtop
  299. End Sub
  300.